Interactive Media Design Review 1999/Interactive Media Design Review 1999.iso/pc/allfiles/tokyo/east.dir/00015_Script_eastBirth

Text File | 1999-04-26 | 1KB | 39 lines

global Ecounter, EsprtList
property sprt, cst, alive, posList, clock

on new me, mysprt, mycst
  --  set Ecounter=Ecounter+1
  --  if Ecounter=19 then set Ecounter=9
  set clock=1
  set alive=1
  set posList=[]
  set sprt=mysprt
  set cst = mycst
  puppetsprite sprt,1
  set the membernum of sprite sprt = cst
  set the blend of sprite sprt = 100
  set the loc of sprite sprt = point(the mouseh,the mousev)
  --  updatestage
  return me
end

on run me
  if alive = 1 then
    if the blend of sprite sprt > 0 then
      add posList point(the mouseh,the mousev)
      set the blend of sprite sprt = the blend of sprite sprt-10
      set the loc of sprite sprt = point(the mouseh,the mousev)
      if the blend of sprite sprt=0 then
        set alive = 0
      end if
    end if
  end if

  if alive = 0 then
    set the loc of sprite sprt = getat(posList, clock)
    set clock=clock+1
    if clock=11 then set clock=1
    set the blend of sprite sprt = the blend of sprite sprt -10
  end if
end